Шаг 32 - Свойство DriveLetter.

Возвращает символ локального дискодода или совместно используемого сетевого накопителя. Только для чтения.

object.DriveLetter

Параметры
object всегда задает объект Drive

Свойство DriveLetter возвращает пустую строку (""), если у указанного дисковода нет такого символа, например, это совместно используемый сетевой накопитель, для которого не задан символ дисковода.

Пример
Следующий код иллюстрирует использование DriveLetter свойства:

Sub ShowDriveLetter(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & d.DriveLetter & ": - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub
Hosted by uCoz